home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1994 November / Cd Ware (Nro. 2) - Epimundo.iso / DOS / PG / CL_STYLE.ZIP / DOSLIB00.CLA < prev    next >
Encoding:
Text File  |  1993-12-14  |  1.8 KB  |  58 lines
  1.                    Member('DOSLIB')
  2. OMIT('╝')
  3. ╔════════════════════════════════════════════════════════════════════════════╗
  4. ║ Change_Directory -                             !Generated Procedure        ║
  5. ╚════════════════════════════════════════════════════════════════════════════╝
  6.  
  7. System_Startup   PROCEDURE
  8.  
  9.                  Code
  10. !
  11. !--------------- Specify Smooth or Full Character Mouse Movement
  12. !
  13.                  If Upper(Command('CLASMOOTH=ON',0)) Then
  14.                  .
  15.  
  16. !
  17. !--------------- Specify usage of Graphical Checkboxes, Radio Button etc
  18. !
  19.                  If Upper(Command('CLAFONTS=ON',0)) Then
  20.                     LoadSymbols()
  21.                  .
  22.  
  23. !
  24. !--------------- Specify the character to Remap for thin Borders
  25. !
  26.                  If Upper(Command('CLABORDERS=',0)) Then
  27.                     LoadBorder()
  28.                  .
  29.  
  30. !
  31. !--------------- Specify the Charafters for Radio Buttons, Etc
  32. !
  33.                  If Upper(Command('CLASYMBOLS=',0)) Then
  34.                  .
  35.  
  36. !
  37. !--------------- Specify Graphics Mode to Use
  38. !
  39.                  If Upper(Command('CLAGRAPH=',0)) Then
  40.                     If    Upper(Command('CLAGRAPH=ALLTEXT',0)) then
  41.                           SetGraphic(90)
  42.                     ElsIf Upper(Command('CLAGRAPH=EGA',0))  then
  43.                           SetGraphic(121)
  44.                     ElsIf Upper(Command('CLAGRAPH=VGA',0))  then
  45.                           SetGraphic(89)
  46.                     ElsIf Upper(Command('CLAGRAPH=SVGA256',0)) then
  47.                           SetGraphic(87)
  48.                     Else
  49.                           SetGraphic(90)
  50.                  .  .
  51.  
  52. !
  53. !--------------- Specifies if the Mouse should be sent a Reset
  54. !
  55.                  If Upper(Command('CLAMRESET=ON',0)) Then
  56.                  .
  57.                  RETURN
  58.